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3 COPY LOG7833 ** MAP EC HISTORY ** 002500 2C20 201 DC A (ENTPT) POINT TO MAP ENTPY POTNT TABLE 
IO TO IO ORR ROO OCR iO Goi oko ko kiak iio e teak leak ate ikea i ate ake ake eke ote a fea ake ic ake ae ak air 202 IIR III II IOI III III IOI IOI OI IOI III ORR BOR KIKI KR RAK aK 
5 x * 203 3 ORI IIGIOI III IO IORI IO III IR III II IOI IHC ii i ik 
6 * * PREREQUISITES % Hk * 204 ** * & 
7] * * 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR so ocoe! ** 
8 * NONE * 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO ORTAIN THE PPOPER x* 
9 * * 207 ** PARAMETERS TO PASS TO THE TU'S AND té PASS TO THE OPERATOR *% 
10 COO IO IO OR IO IO to iC iO ig omg ak koi ac teak tok ok ikokoiog ak ack 208 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS * 
11 * * 209 ** PURPOSE THEY ARE: ** 
12 * * MODIFICATIONS eK * 210 ** * & 
13 * * 211 ** STEP AND RULE ADDRESS TABLE *% 
14 * CHANGES MADE TO MEET PROGFAM REQUIREMENTS * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND *% 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
1.6 JOO OI IO RIO IC IO II IO III OK Ai ICO Ok a doi teak ik teste ake ate ake ate sie akeaie ai afr ak ak 214 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 215 ** Rh AN ADDRESS OF THE RULE DC STAPT AREA me & 
18 * ee * REA'S INCORPORATED * x * 216 ** B THE STEP NUMBER IN DECIMAL * * 
19 * * 217 ** ¢ AN EQUATE FOR THE STEP NUMBEP ** 
20 * NONE * 218 ** % % 
21 * * 219 ** RULE INFORMATION TABLE * * 
92 SOO IOI OR OCI IGI SO OR IO I IOI IIR Rok a ak gig aR tk a a a 2k i ke Rak akc aie akc ae fe ai fe 220 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE 
23 * * 221 ** THE APPPOPRIATE FULE UNDER MDI. EACH RULE HAS ITS OWN ** 
24 * CK SPECIAL INSTRUCTIONS * KX * 222 ** UNTQUELY DEFINED AREA INDICATED BELOW. END OF TAPLE IS ** 
25 * * 223 ** INDICATED WITH A X'0000' FOR THE RULE EQUATE. ** 
26 * NONE * 224 ** *% 
27 * * 225 ** SQOUES * 
98 [CORIO III ICO COR IORI IORI ro lok dak iio tok ok cic dak ac dele ak fe aka aac ac ak 226 ** A) RULE EQUATE X*0100! ** 
29 * * 227 ** B) ADDRESS OF THE YES LEG ROLE ** 
30 * ** * E. C. HISTORY ** * * 228 ** ** 
31 * * 229 ** SFIXT ** 
32 * DATE 17DEC76 DATE 18JAN77 DATE O4YMART7T DATE 10J0N77 * 230 ** A) RULE ECUATE X'O1T01°5 ¥ % 
7 : E.C. 578486 F.C. 578573 F.C. 578638 E.C. 578625 : a4 B) ADDRESS OF MESSAGE TO PPINT x 
1 
35 * DATE O1MAR78 DATE DATE DATE * 233 ** $STOP * 
36 * EeC. 755285 EuC. BaGe E.C. * 234 ** A) RULE EQUATE x'0102! % A 
37 * * 235 ** B) ADDPESS OF MESSAGE x 
38 OIC IOI IOI OR OIG II OI OR kak gc dok aa lok sea kak aac tok ak ak ak took ak ak ok 236 ** x 
002500 40 17833 START X'2500! START ADDRESS OF ALL 'T* TYPE PROG 237 ** $GOTO ** 
000100 41 @CUES EQU X¥'0100! EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE ECUATE X*0200' * 
000101 42 @FIXT EQU X¥'0101° EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDPRESS OF MESSAGE * 
000102 43 aSstoP EQU X¥'0102' EQUATED VALUE FOR MDI STATEMENT 240 ** C) NAME OF MAP TO GO TO * x 
000200 44 GOTO EQU Xx*0200! EQUATED VALUE FOR MDI STATEMENT 241 ** D) ENTFY POINT WITHIN GO TO MAP TO USE ** 
000201 45 @CALL EQU X'O201! EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ee 
000300 46 @MINPT EQU X¥*0300! EQUATED VALUE FOR MDI STATEMENT 2u4 ** Ok 
000409 47 AOUXX EQU X'O400! EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL *% 
000500 48 @aTUXX EQU X'0500! EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X*'0201'! * & 
000600 49 ANVLD EQU X¥'O600! EQUATED VALUE FOR MDI STATEMENT 2u7 *x B) ADDRESS OF MESSAGE x 
000000 50 EC EQU X'O0000! EQUATE FOR EQUAL 248 ** C) NAMF OF MAP TO CALL * 
anne a ee Ee Pana ae eaUREe ro Nha ae Ae . D) ENTRY FOINT WITHIN CAILED MAP TO USE * 
E) INDICATOR FOR EXTERNAL OR INTEPNAL PEFERENCE ** 
QO000C 53 NH EQU x'000C! EQUATE FOR NOT HIGH 251 ** ** 
000010 54 LO EQU X'0010' EQUATE FOR LOW 252 ** SINPT 4k 
000074 55 NL EQU x'OO0145 EQUATE FOR NOT HOR 253 ** A) POLE EQUATE X'0300! * 
900010 56 LT EQU X¥'0010! EQUATE FOR LESS AN ¥ 254 ** Ee) INPUT TYPE sebepre OR HEX) 7k 
00000C 57 LE EQU X*O000C* FOUATE FOR LESS THAN OR EQUAL TO 255 ** C) ADDRESS OF YES LEG RULE * 
| 000008 58 GT FOU X'0008! EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION OF INPUT DATA * * 
000014 5° GE EQU X'O014! EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTY OF INPUT DATA * 
000200 60 ON EQU X'0200! EQUATE FOR ON 258 ** F) LOWER LIMIT OF GOOD DATA ** 
000202 61 OF FOU X¥'0202! EQUATE FOR OFF 259 ** G) HIGHER LIMIT OF GOOD DATA *% 
000204 62 MX EQU X*0204' EQUATE FOR MIXED 260 ** ae 
000000 63 EBC EQU X'0000 ! EQUATE FOR EBCDIC DATA TRANSFER 261 ** SOUXX i 
000001 64 HEX EQU X'O001! EQUATE FOR HEX DATA TRANSFER 262 ** ° A) RULE EQUATE X'O4UOO! ** 
000001 65 XTENL EQU X'OO00T! EQUATE FOR EXTERNAL REFERENCE 263 ** E) ADDPESS OF YES LEG PULE kK 
000000 66 INTRNL EQU X*'O0000' EQUATE FOR INTEFNAL REFERENCE 264 ** Cc} TU BRANCH TO ADDRESS (INITIAL x 
000000 67 PAFPM EQU X'0000! EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDERY ek 
000001 68 DA EQU X'OO00OT! EQUATE FOR DEVICE ADDRESS 266 ** FE) LENGTH OF PARAMETER IN BYT * x 
900000 50 DUMMY £OU -X*0000" DUMMY EQUATE. 568 +e G} STORE ADDRESS FOR FIRST re 
j 268 ** G) STORE ADDRESS FOR FIRS R * x 
001800 72 PID EOU *-X'QH00! ADDRESS OF MDI HEADER 269 ** Be Meee ee, Peete ** 
000232 73 PTYPE EQU *=—X'22CE! ADDPESS OF PROCESSOR TYPE FIELD 270 ** STUXX ** 
00180C 74 STEPNUM EQU PID+X'O0OO0C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE X'0500! Xe 
00180E 75 OFWD1 EQU PTD+X'OOQOE* ADDRESS OF OPTION WORD ONE 272 ** B) ADDRESS OF YES LEG RULE OK 
001810 76 OPWD2 EQU PID+X'0010! ADDRESS OF OPTION WORD TWO 273 ** C}) TU BRANCH TO ADDRESS *k 
001818 77 TUSTATUS EQU  PID+x'0018! ADDPESS OF TU STATUS WORD 274 ** D) TYPE OF COMPARE TO MAKE ON RESULTS ek 
QO0181A 78 TUWORK FOU PID+X'OO1A! ADDRESS OF TU WORK APEA 275 ** E) LENGTH OF COMPAPED RESULTS ** 
QOO189A 79 TUPAPM1 EQU PID+X'OQOO9A'! ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOP COMPARE 4k 
00189C 80 TUPAPM2 EQU PID+xX'O09C! ADDRESS OF PAPRM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES * & 
EEG Bo fupteae eu braegsaonb1 © ABBeass Or Sie a Sottnes 13 it Hy) SROREEBbetSs 258 F2pEH"S7s : 
+ 219 ** I STORE ADDPESS FOR FIFST 8 WORDS OF PAPAME ** 
O0018A2 83 TUPARM5S FOU PID+X*QOOA2' ADDRESS OF PAPRM 5 POINTEP 280 ** ane x 
OO18A4 84 TUPARME EQOU PID+X'QOA4! ADDRESS OF PARM 6 POINTER 281 ** SNVLD é ** 
0018A6 85 TUPARM?7 FOOD PID+X'QOA6! ADDPESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X'0600! ** 
0018A8 86 TUPARM8 EQU PID+X'QOOA8B! ADDPESS OF PARPM 8 POINTER 284 ** Hk 
O018KC BS TUDARM{O EOU  PIDTE"OOAC! ADDRESS OF PARM 10 DOLNTER $86 ee NTP Yn TS TABLE C He 
A PAR! + ] t Rh He IK THIS TABLE CONTAINS THE ENTRY POINTS WI ) ] * 
001880 80 TUPARH12 EOU  PID#X'OOEOt RO OE eee Ot SAU Hae ones 287 ** THE NAP CAN BE ENTERED FROM THESP ENTRY POINTS ARE 4s 
: + R I al REFERENCED BY NAME AND ADDRESS. ENTRIES EA 0 : ** 
0018B2 91 TUPARM13 EOU PID+X'OOB2' ADDRESS OF PARM 13 POINTE? 289 ** ete eK 
0018 Be 83 @PARNIS EOU  BIDtK*OOLE' ADDRESS OF PASM 15 POINTER $51 x* B) ADDRESS OF ENTPY PO + 
c + : a5 § a 2 * B) ADDRESS OF ENTPY POINT PULE * x 
aot ab BURSRINS ER PEBTEAGBERL © ABBEESS OF PEPE, VeRGgNTESS procs 393 3 edna [ 
+ 3 = hed ig 293 ** THE ENTRY POINT TABLE : ' ** 
OO18BE 96 TUDA FOU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN FRC 50a ex END IS INDICATED BY A X*'0000 vit 
8018c2 $4 TUBUFF EOU  ID#X*00C2" ADDPESS OF LAST USED WORD IN MAD Be eS NTS PAE + 
; + PE AT * THIS TAPLE CONTAINFS THE MESSAGE PASSED TO THE OPEPATOR * x 
0018C4 99 TULAST EQU PID+x'OO0C4! ADDRESS OF IAST ADDRESSABLE WORD 297 ** VIA THE MDI SUPERVISOR. TH AB Ss : * 
o318o8 100 RURESUEY ER PERTEGRCg, —ARERESS OF RENEE ORT Poe egeS 238 32 aa 7 
+ RE t i E 299 ** A) EQUATE FOR START OF MESSAGE *x 
OO18FC 102 MAFNAME EQU PID+XtOOFC! ADDRESS OF MAP NAME FIELD IN HEX 300 ** B NOMBEE OF LINES OF MESSEGE ioe 5S 
001948 103 TUINPT EQU PID+X'O148! ADDPESS OF SINPT DATA 3201 ** C) LENGTH OF FOLLOWING LINE * * 
001968 104 PARMAPA EQU PID+X'O16E' ADDRESS OF SINPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE * * 
001988 105 @DCADD1 EQU PID+X'01R8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINE 4 
QO19BA 106 ADCADD2 EQU PID+X"O1BA' MDI FOINTER 304 ** F) SECOND LINE OF MESSAGE ** 
0019C4 107 SUPSTAT EOD PID+X'O1C4! ADDPESS OF MDI STATUS 305 ** G) ETC. * 
0019D0 108 DEVADD EQU PID+X'Q1DO! ADDRESS OF DEVICE ADDRESS TABLE 0O 306 ** eK 
OO19DA 109 DEVADD1 EOU PID+X"QO1DA? ADDRESS OF DEVICE ADDRESS TABLE 1 JOT RRR RK OR ORI IRR IRI IOI ICR Se RFC ROR I a ak a a ic ofc kei ak ake ake ae oe 
001954 110 DEVADD2 ath PID+X'O1TE4! ADDFESS OF DEVICE ADDPESS TABLE 2 3QOB eR RRR IIR OR ROR RO IORI IIR RII ICR ak ok de dk ok ak ok ae 
Q0O019EE 111 DEVADD3 EQU PID+X'tO1EE* ADDRESS OF DEVICE ADDRESS TABLE 3 . 
0019F8 112 DEVADD4 EQU PID+X'Q1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS FOU PID+X!'0202' ADDFESS OF DEVICE ADDRESS TABLE 5 
O0O1A0C 114 DEVADD65 FEQU PID+X*tO20C! ADDRESS IF DEVICE ADDRESS TABLE 56 
001A 16 14 DEVADD7 aoe eh ae ADDRESS OF DEVICE ADDRESS TABLE 7 : 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 '  LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0033D2 0000 2144 ERO1 DC Rh (*-* 2260 * SUBROUTINE 
0033D4 0000 2145 HDOSV DC A (*—* 2261 * 
0033D6 0000 2146 HDISV DC A (*-* 2262 * PUPPOSE 
0033D8 0000 2147 BROSV DC A *-% 2263 * 
0033DA 0000 2148 ERISV DC A (*-* 2264 * LOAD WRITE SECTOP ID DATA BUFFER FROM RD SEC ID BUFFEP 
0033DC 0000 2149 PATTR DC A (*—* 2265 * 
0033DE 0000 2150 CECYL DC A (*-% 2266 * CALLING SEQUENCE 
0033E0 0000 2151 STATS DC Ae 2267 * 
32152 * 2268 * BAL LWSID,R6 
2154 T7872 2269 * 
2155 He He Me ee eH ee MK eH eK MK KK HK KK HK KK KK a KK Ke KKK KK KK KK KKK KK KK KKK KK K 2270 * RETURN 
2156 *T7872 * 2271 * 
2157 * THIS TU INHIBITS INTERRUPT 12/01/76* 2272 * BXS (R6) 
2158 * CALLING ROUTINE LOOPS OW T72A * 2273 * 
2159 Me MH eK HK HK MK Me eK eH He HK KK KK KK HE Ke KK KK KK HK HK KK KKK MK KK KK KK KK KK KK KK KK 2274 MH IK He He HK ae He Me ae He he he he i He ee He eK ae KK eK ee he ae HK ee Ke ee ee KO IK Me EK IK IK OK KK KK KK KKK KK KK KK K 
0033E2 6FOD 3282 2160 T7872 MVW  P7,TURTN SAVE RETURN ADDRESS 2275 * 
003386 4020 3644 0020 2161 MVWI X'6020' ,TODCB PREP TO LEVEL 2 WITH THE 'I' BIT OFF 2276 * 
OO33EC 4724 3640 2162 MVA  TOBLK,R? * ; 003462 4724 0005 2277 LWSID MVWI 5,R7 BYTE COUNT 
0033FO0 600C 2163 SVC PR * 003466 4324 3253 2278 MVA  SCTID#4+1,R3 ADDR OF RD SECT ID DATA BUFFEP 
0033F2 5002 2164 T7128 OO346A 4524 3378 3279 MVA  WRSTD,R5 ADDR OF WR SECT ID DATA BUFFER 
0033F4 6FOD 3282 2165 T72A MVW R7,TURTN SAVE RETURN ADDRESS 00346E 2BA4 2280 MVEN (R3 , (R5) MOV DATA FROM RD TO WR BUFFER 
0033F8 6802 36D8 2166 T72B B $cONX EXIT 003470 5600 2281 2 BXS R6 RETURN TO CALLER 
2169 COPY T78I0 2234 * 
2170 ** (T78I0) 2285 * EXECUTE INPUT & OUTPUT COMMANDS 
2171 HK Me IK KK AK eK REA EK AKER KEEL EE 1] 2/0 1/716 HE RER EERE REE KEKE EERE EK EK EK EEE KKK 2286 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
2172 * 2287 * FACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
2173 * SUBROUTINE 2288 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
2174 * 2289 * SUPVR CALL. 
2175 * PUREOSE 2290 * : 
2176 * 2291 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
2177 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 2292 * : 
2178 * NORMAL AND TEST DATA. 2293 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
2179 * 2294 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
2180 * CALLING SEQUENCE 2295 * 
2181 * 2296 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
2182 * BAL CMPRW,R6 NORMAL) 2297 * 3 
2183 : BAL CMPRT,R6 TEST) 2298 * 1 BAL  S$RKEW,R6 READ SECTOR ID SKEWED 
2185 * RETURN 2300 * 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 
2187 * BXS (R6,2) - NORMAL 2302 * 3 BAL S$PWST,R6 READ SECTOR ID SKEWED (TEST) 
2189 * 2304 * 4 BAL  $RIDS,RE6 READ SECTOR ID (TEST) 
DV IO KH HHH Re He ee He He RR He KK 3 EE HH CK KC hc Shae He i aK i aK eo eo oi a oo ok ke eK 2305 * = 
3191 * 2306 * 5 BAL S$WKEW,R6 WRITE SECTOR ID SKEWED 
0033FC 4724 0005 2192 CMPRT MVWI BYTE COUNT 2307 * : 
003400 4324 3387 2193 MV A ae R3 ADDR OF RD SECT ID DATA (TEST 2308 * 6 BAL  SWSEC,R6 WRITE SECTOR ID 
003404 4524 3380 2194 MVA wsipt,R§ ADDR OF WR SECT ID DATA (TEST 2309 * : 
003408 5006 2195 J TTY Y 2310 * 7 BAL  S$WSTS,R6 WRITE SECTOR ID (TEST 
00340A 4724 0005 2196 CMPRW MVWI 5,R7 COMPARE BYTE COUNT 2311 * F 
OO340E 4324 3253 2197 MVA SCTID+1 P3 ADDR OF RD SEC ID DATA 2312 * 8 BAL  S$DIAG,R6 DIAGNOSTIC 
003412 4524 3378 2198 MVA  WRSID,R5 ADDR OF KR SEC ID DATA 2313 * : 
003416 2BA6 2199 TT4yY CFNEN R3) (R5) COMPARE DATA 2314 * 9 BAL XIOCS,R6 CYCLE STEAL STATUS 
003418 68C0 0002 2200 BE 72) BCH IF WRITE ID DATA OK 2315 * 
00341Cc 68D2 0000 2201 , Rey COMPARE ERROR 2316 * 10 BAL  SSEEK,R6 SEEK 
QD2O3 HR Hee He He eRe he he he he he a a he ke Sk ee He a Hee 2K Re a Ko i i a i aie 2 i 2h hc 2 hc i a a a 2 a 3 2c oe KC a eK I IK eK Ke Sate x 41 BAL S$RECL,P6 RECALIBRATE 
2204 * 2319 * : 
2205 * SUBROUTINE 2320 * 12 BAL S$RDID,R6 PEAD SECTOR ID 
2206 * 2321 * 3 
2207 * PURPOSE 2322 * 13 BAL  S$RD,P6 READ 
2208 * CONVERT LOGICAL SECTOR NUMBER TO A PRYSICAL SECTOR MINUS 2323 * : 
2209 * ONE. 2324 * 14 BAL S$RDVY,R6 READ VERIFY 
2210 * SETUP LOGICAL SECTOR # IN LOCATION 'LGSEC! 2325 * s 
2211 * PHYSICAL SECTOR # WILL BE LOADED IN LOCATION 'PHYSC! 2336 * 15 BAL  SWRT,R6 WRITE 
2213 * LOGICAL SECTOR# TO PHYSICAL SECTOR# CONVERSION 2328 * 
2214 * LOGICAL- X 00, 1E, 01, 1F, 02, 20, 03, 21, O4, 22, 05, 23, 06, 24, 003472 4020 3644 32E2 2329 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2219 * PHYSICAL X 00, 01, 02, 03, 04, 05, 06, 07, 08, 09, OA, OB, OC, OD, 003478 5064 2330 : J XTO 
2217 * LOGICAL- 07, 25, 08, 26, 09, 27, OA, 28, OB, 29, OC, 2A, OD, 2B, 00347A 4020 3644 32A2 2332 SRECL MVA  CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
2218 * PHYSICAL OB, OF, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 1A, 1B, 003480 5060 2333 J XIO 
2220 * LOGICAL- OF, 2C, OF, 2D, 10, 2E, 11, 2F, 12, 30, 13, 31, 14, 32, 003482 4020 3644 32c2 2335 SRDID MVA  RSDCB,IODCB SET UP BLOCK FOR SVC CALL 
2221 * PHYSICAL 1C;, 1D, 1E, 1F, 20, 21, 22, 23, 24, 25, 26, 27, 28, 295, 003488 OBFF 2336 MVBI X'FF',R3 SET BUFFER TO F'S 
2222 * 003488 4524 3252 2337 MVA  SCTID,R5S SETUP READ SECTOR ID BUFFER ADRS 
2223 * LOGICAL- 15, 33, 16, 34, 17, 35, 18, 36, 19, 37, 1A, 38, 1B, 39, 00348E 4724 0006 2338 MVWI 6-R7 SETUP BUFFER LENGTH 
2224 * PHYSTCAL 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 37, 003492 2BAC 2339 FFN R3 AR5) INIT READ SECTOR ID BUFFER 
2225 * 003494 4020 32D0 3252 3340 MVA  sctitp,RSDCB+14 DATA ADDR 
2226 * LOGICAL- 1C, 3A, 1D, 3B, X 0034984 5053 2341 J X10 
2227 * PHYSICAL 38, 39, 3A, 3B, X 2342 * 
2228 * 00349C OBFF 2343 $RD MVBI X'FF',R3 SETRD BUFFER TO ALL F'S 
2229 * 00349E 6D08 3330 2344 MVW  RDDCB+14,R5 SET UP READ BUFFER ADRS 
2230 * CALLING SEQUENCE 0034A2 4724 0100 2345 MVWI X10 100 ' yl SFT UP BUFFER LENGTH 
2231 * 003486 2BAC 2346 FFN & 5) CLEAR READ BUFFER 
32232 * BAL CONVT,R6 0034A8 4020 3644 3322 2347 SRDS MVA nD6 B,IODCB SET UP BLOCK FOR SVC CALL 
3333 * OOZ4AE 5049 2348 J 
2234 * RETURN 2349 * 
2235 * 0034B0 4020 3644 3312 2350 SRDVY MVA  VRDCB, IODCB SET UP CONTROL BLOCK FOP SVz CALL 
2236 * B (TT30442) 0034B6 5045 3351 i J XIO 
2238 He He Re eK he ae Ie He He oe he he He eae fe he oe oe he fe oe oe aK hc ke ae ae eK Oe Ke ae he I Oe He ie ae He 2c fe he ie ae ae ae i ke a i ake 3K ae ae ie eK oe Kk Ke ke O034B8 40 20 3644 3302 2353 SWRT MVA WRDCB, IODCB SET UP CONTROL PLOCK FOR SVC CALL 
2239 * OO34BE 5041 2354 J XTO 
003420 6EOD 3460 2240 CONVT MVW TT 30442 SETUP PETURN ADDR 2355 * 
003424 8022 3352 3371 9241 CB Ekoo. LGSEC#1 CK FOR LOG # ZERO 0034C0 4020 3644 3342 2256 SRKEW MVA_ RKDCB, 1QDCB SFT UP CONTROL BLOCK FOR SVC CALL 
00342A 100D 2242 JE TT303° BCH IF LOG # IS ZERO 0034C6 OBFF 2357 MVBI X'FF!/P3 SET BUFFER TO F'S 
00342c 802B 3371 3374 2243 CB LGSEC+1,CE29 COMP LOG TO 29 0034C8 4524 3252 3358 MVA  SCTID/R5 SETUP READ SECTOR ID BUFFER ADRS 
003432 COD 2244 JGE RTT01 BCH IF LGSEC EQ OR LESS THAN CB29 0034CC 4724 0006 3359 MVWI 6 RT SETUP BUFFER LENGTH 
003434 4024 0002 2245 MVWI 2,R0 SETUP MULTIPLIER 0034D0 2BAC 2360 FFN R3 5) INIT READ SECTOR ID BUFFER 
003438 £821 3371 2246 MB LGSEC+1,R0 LOG SECTOR # TIMES 2 0034D2 4020 3350 3252 2361 MVA Schyp. KDCB+14 DATA ADDR 
00343C 7802 003C 2247 SWI 60,R0 LOG SEC TIMES 2 MINUS 60 0034D8 5034 2362 J XIO 
003440 C028 3373 2248 MVB  RO.PHYSC#+1 PHYSICAL SECTOR NUMBER 2363 * 
003444 500c 2249 J TT304 RETURN TO CALLER 0OO34DA 4020 3644 3332 2364 $WKST MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003446 8028 3376 3373 2350 TT303 MVB  FIVE9,PHYSC+1 PHYSICAL SECTOR # 59 0034E0 4020 3340 3380 2365 MVA  WSIDT,WKDCB+14 DATA ADDP 
00344C 5008 2251 J TT 304" RETURN TO CALLER O034E6 502D 2366 J X10 
OO344E 4024 0002 2252 RTTO1 MVWI 2,R0 LOAD MULTIPLIER 2367 * 
003452 F821 3371 2253 MB LEsrc+t, RO LOG SECTOR # TIMES 2 0034E8 4020 3644 3342 2368 SRWST MVA  RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003456 7802 0001 2254 SWI SUBTRACT ONE OO34FE 4020 3350 3386 2269 MVA SCTST?RKDCB+14 DATA ADDR 
003458 C028 3373 2255 NVB oP PHYSC+1 LOAD PHYSICAL SECTOR # OO34F4 5026 2370 J X10 
00345E 6802 0000 2256 TT304 B ~* RETURN TO CALLER 2371 * 
3257 * 0034F6 4020 3644 32c2 23272 $RIDS MVA  RSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
2258 HR He Me He He He ee ee he He Re he He eK eK 2K ec ae ak 2 he He Se oe KK ee He He OK ie Ke Ke he He ae ee eK ee eK OK eK ek ek ok kK kK KK KKK OO34FC OBFF 2373 MVBI X'FF' R3 SET BUFFER TO FIs 
2259 * OO34FE 4524 3386 2374 MVA  SCTST;R5 SETUP READ SECTOR ID BUFFER ADRS 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003502 4724 0006 2375 MVWI 6,R7 SETUP BUFFER LENGTH 24914+* SUBROUTINE 
003506 2BAC 2376 FFN R3 E>), INIT READ SECTOR ID BUFFER 24924* 
03208 4020 32D0 3386 2377 MVA sch T,RSDCB+14 DATA ADDR 2493+* I/O EXECUTE ERROR HANDLING ROUTINE 
00350E 5019 2378 xIo 24944 
2379 * 24954+* PURPOSE 
003510 4020 3644 3332 2380 SWKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2496+* 
003516 4020 3340 3378 2381 MVA WRSID, *WKDCB+14 DATA ADDR 2497+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
00351C 5012 2382 J XIo 2498+* PROBLEM THAT WAS FOUND WHEN THE 470 COMMAND WAS ISSUED BY THE 
2383 * 2499+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
QOO351E 4020 3644 32B2 2384 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2500+* 
003524 4020 32C0 3378 2385 MVA WRSID, WSDCB4+14 DATA ADDR 2501+* CALLING SEQUENCE 
00352A 500B 2386 J XIO 2502+* 
00352C 4020 3644 32B2 2387 S$WSTS MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2503+* SUPVR WILL ENTER WHEN AN ERROR OCCUFS ON AN 1/0 COMMAND 
003532 4020 32cC0 3380 2388 MVA WSIDT, WSDCB4+14 DATA ADDR 2504+* 
003538 5004 ee ‘ J XIo pene ce RETURN CONTROL 
+ 
00353A 4020 3644 3292 2391 SDIAG MVA DGDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2507+* B (R6) * PETURN TO USERS ERPOR HANDLER 
003540 5000 2392 J XIO 2508+* 
2393 XEQIT 25094 48 II IO kK i tok foto kk $k ito tok i tok ok & tk i kk iO OK 
23:9 4 OK RIOR AOR OO lo io aiok ok oti dottoktk et 99 JUL 76 ** 2510+* 
2395+* 2511+* CC O= DEVICE NOT ATTACHED 
23964+* SUB-ROUTINE \ 2512+* FOR 1= DEVICE BUSY 
2397+* 2513+* I/0 2= DEVICE BUSY AFTER RESET 
2398+* EXECUTE INPUT AND OUTPUT COMMANDS 2514+* 3= COMMAND REJECT 
2399+* 25154+* 4= INTERVENTION REQUIRED 
2400+* PURPOSE 2516+* 5= INTERFACE DATA CHECK 
24014* 25174+* 6= CONTROLLER BUSY 
2402+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 25184+* 7= I/O COMMAND EXCEPTED 
2403+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 25194+* 
24UO04+* 0035A8 706E 2520+XIOER DC X'7O06E! COPY STATUS ANY LEVEL INTO R3 
2405+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED OO35AA 336A 2521+ SRL 13,83 POSITION CC CODE TO BITS 13-15 
2406+* THE I/O COMMAND. O0O035AC C328 324C 2522+ MVB R3,S10IN * PUT IN LOG OUT AREA 
240 7+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 0035B0 68D2 0000 2523+ B (R6 * RETURN TO USER FRROR HANDLER 
2408+4+* ISSUED BY THIS SUBROUTINE. 252 5 4 RRR III IO OR oR do tk i tokok tek tote ti tk 440% TA PR 76 ** 
2409+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE Z2g5+% L 
2410+4+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 2527+* SUB-ROUTINE IL 
2411+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 2528+* IL 
2412+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 2529+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL! IL 
2413+* MYSTERY INTERRUPT cat). CONTROL BIT IS SET. 2530+* IL 
24144* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN SET THE 2531+* PURPOSE IL 
2415+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE reve STAPT! 2532+* IL 
2416+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 2533+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 
2417+ STARTS TO DETERMINE A LOST INTERRUPT. 2534+4+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE TL 
2418+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 2535+* EXPFCTED CODE. IL 
24194* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 2536+* IL 
2420+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 2537+* CALLING SEQUENCE IL 
2421+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 2538+* IL 
2422+* 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 25394* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 INTERRUPT IL 
2423+* 11. CHECK T0 SEE IF THE EXERCISER IS TO BE TERMINATED. 2540+* IL 
24244+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGFESS THAT WAS 25414+* RETURN CONTROL IL 
2425+* ISSUED BY THIS SUBROUTINE. 25424+* IL 
2426+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSU 2543+4* SVC EXIT RETORN TO USER VIA SUPVR IL 
2427+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 25444* TL 
2428+4+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 25 5 4 III IR IO III IO RI OR RIC OR ak tok i tok katokoiok tok tk T 7 
2429+4+* 2546+4+* IL 
2430+* CALLING SEQUENCE 25474+* CC O= CONTROLLER END ISB O= ADD STATUS IL 
2431+* 2548+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
2432+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 25494+* INTR 2= EXCEPTION INTERRUPT FOP 2= INCOR LENGTH IL 
2433+* 2550+* 3= DEVICE END INTERRUPT INTP 3= DCP SPEC CK ie 
24344+* --> BAL XIO OR XEQ ANY CYCLE SI EAL COMMAND, MOD=0 25514+* Y= ATTENTION INTERRUPT u= STG DATA CK IL 
2435+* --> BAL XI01 MOD PARM PRELOADED IN 'IOMOD! 2552+* 5= ATTENTION / PROGRAM CNTL INTR 5= INV STG ADPS IL 
2436+* --> BAL XIOCS,F6 OP XEQ START CYCLE STEAL STATUS, MOD=F 25534* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
2437+* --> BAL XTOcS—4 7R6 AUTO CS STATUS fer Ons Ne OTHER XIO 25544 7= ATTENTION / DEVICE END INTR J= I-FACE DATA IL 
2438+4+* ° AND DOES NOT POST INTERPUPT STATUS) 2555+4+* IL 
2439+* 0035B4 T7O6E 25564INTER DC oo COPY STATUS ANY LEVEL INTO R3 IL 
2440+* RETURN CONTROL 0035B6 336A 2557+ SRL 13 POSITION INDICATORS IN R3 IL 
24414+* 0035B8 4424 3244 2558+ MVA bb4ni ,F SET UP BASE ADRS IL 
2442+% BXS R6,2) RETURN TO USEP NO ERROP 0035BC 4C28 2559+ TBT (Ra tg} IS CS IN PROGRESS IL 
24434+* R6) * RETURN AND RETRY ON ERROR 0035BE 1006 2560+ JOFF Tes * NO IL 
DU LY Uh & He He He MH He He He HH He KK He ee ee He eR he i a ee He ee a hee a i i He eo a 2 a ok ee ok a a eo oe 0035C0 UC6A 2561+ TBTS (R4 Gr) TUPN ON CYCLE STEAL INTER ERFPOR IL 
003542 CB25 3646 2446+ XIO MVWZ IOMOD,R&3 SET MOF OF O FOR CYCLE STEAL OP 0035cC2 6FOD 3278 2562+ MVW R7,CST 8 SAVE CS ERR ISB VALUE, BITS 0-7 IL 
003546 500A 2447+ J XIO1 CS I/0'S ARE NOT RETPIED 0035C6 C328 3279 2563+ MVB R3,CSTL8+1 * AND THE COND CODE IL 
24484% 0035CA 500A 2564+ J INTR1 IL 
003548 4CAA 2449+ TBTR R4,CE RESET CS STATUS INTER ERROP INDICAT. 0035CC 4C24 2565+INTES TBT te XE) TEST EXPECTED ATTEN / EPROR IND TL 
OO354A 4C68 24504 TBTS R4,CS SET "CYCLE STEAL STATUS! IN PROGRESS 0035CE 1002 2566+ JOFF NTET SCH IF NOT EXPECTED IL 
00354C 4020 3644 32F2 2451+XIOCS MVA SDCB ODCB SET UP CONTROL BLOCK FOR SVC CALL 0035D0 F304 2567+ CBI 4,R3 IS THIS AN ‘ATTENTION! INTR IL 
' 003552 4020 3646 OOOF 2452+ MVWI X'000F'", TOMOD SET CYCLE STEAL MODIFIER 0035D2 1006 2568+ JE INTR1 * YES, BCH TO END INTR SEQUEN IL 
003558 4¢€28 2453+ TBI (R4,CS) IS CS IN PROGRESS, ERROR CONDITION 0035D4 4C61 25694INTET TBTS ie ER) SET ERROR ON 1/0 COMMAND ah a BIT TL 
003554 1213 24544 JON  x1I02 * YES, BYPASS SAVING I/O ADRS 0035D6 5004 2570+ 5 nT hi IL 
00355C 6£E0D 3250 2455+XIO1 MVW R6,LSTIO SAVE TAR FOP RETRY IF REQUESTED 2571+* THE ERROR INTERPUPT USES THE SAME IL 
003560 4324 325A 2456+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 2572+* ENDING SEOUENCE AS THE NORMAL INTR IL 
003564 6D08 3644 2457+ MVW PODER? * AND THE FFOM ADFPS, ALONG WITH QS TY HR IE RI ROI IRR IRR IOI IO II IIR KK 4K HK 1 ADR 76 TL 
003568 OF10 2458+ MVBI 16 gf! * THE NUMBER OF MOVES 2575+* IL 
00356A 2D64 2459+ MVFN (R5) £4F3) MOVE 1 STATUS WORD AND ADJUST 2576+* SOUBROUTINE IL 
00356C OBFF 2460+ MVBI 255 CLEAR CYCLE STATUS BUFFER 2577+* IL 
00356E 4524 326A 2461+ MVA 225 fe ps * TO ALL ONES * 2578+* OKAY INTERRUPT RUNS ON INTFRRUPT LEVEL 'S$INTL' IL 
003572 OF10 2462+ MVBI oe * 2579+* TL 
003574 2BAC 2463+ FFN R3 4B >) * 25804* PURPOSE IL 
003576 4020 324c 0708 2464+ MVWI x'6 08 ,SIOIN OVERLAY OLD CONDITION CODES 25814+* IL 
00357C CB25 324E eee MVWZ SISB, P3° ZERO OUT OLD ISB VALUE Pe aes TO CHECK THE INTERRUPT AND CONTINUE THE TEST af 
+ + 
003580 4CA1 2467+ TBTR (R4,EP RESET ANY ERROR BEFOFE 1/0 COMMAND 25844+* CALLING SEQUENCE IL 
003582 4CA3 2468+XIO2 TBTR R4,IN CLEAR INTERROPT RECEIVED CNTL RIT 2585+* TL 
003584 4724 3640 2469+ MVA OBLK ,R7 SET UP CONTROL BLOCK FOF SUPVR 2586+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
003588 4CA6 2470+ TBTR R4, SLE) RESET LEVEL ERROR INDICATOR 2587+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL 
00358A 4C62 2471+ TBTS (R4,XT) SET EXPECTED INTR CONTROL BIT 2588+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE TL 
00358C 600A se SVC TALT CALL SUPVR FOR I/0 COMMAND ELF pie COMMON SECTION IS HANDLED HERE. TL 
+ + IL 
00358E 4CA7 2474+ TBTR R4,NT) IS AN INTR EXPECTED 2591+* RETURN CONTROL IL 
003590 6ACO 0002 2475+ BN R6,2) * NO, RETURN TO USER 2592+* TL 
2476+* 2593+* SVC EXIT RETUPN TO USER VIA SUPVR IL 
2477+ THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 25944* IL 
2478+* 2595 + 8 IO IO IO IOI IO FOR III RI a iii tok T TL 
003594 0D00 2479+ MVBI "00! SET UP WORK REG FOR 'LOST INTR® 0035D8 T706E 2596+INTOK DC ee COPY STATUS ANY LEVEL INTO 83 TL 
003596 4CA3 24804+XI0O8 TBTR (Ra I ify” HAS INTERRUPT BEEN RECEIVED OO35DA 336A 2597+ SRL POSITION INDICATORS IN 8&3 TL 
003598 1238 2481+ JON * YES, CHECK IF ALL WAS SATISFACTORY 0035DC 4424 3244 2598+ MVA opens R4 SET UP BASE ADRS IL 
00359A 6002 2482+ SVC TDLE. ALLOW ANOTHER PROGRAM A CHANCE TO RUN 0035E0 4C63 2599+INTR1 TBTS Bites SET INTERRUPT RECEIVED T 
2483+* SUPVR WILL RETURN HERE 0O035E2 4C28 2600+ TBT IS 'CS IN PROGRESS! ON 11 
00359C 7DA1 0001 2484+ AWIL zk ADVANCE TIME OUT COUNT OO035E4 1204 2601+ JON * YES, BCH AROUND UPDATE IL 
Q0O035A0 18FA 2485+ JNZ x {08 BCH IF TIME OUT NOT PEACHED 0035E6 C328 324D 2602+ MVB a ae SAVE INTERRUPTING CC CODE IL 
Q0O035A2 4C51 2486+ TBTS RG ER) SET ON ERROR CONTROL BIT OO0358A 6FOD 32UE 2603+ MVW R7, $ISB SAVE INTR STATUS AND DEV ADRS IL 
0OO35A4 68D2 0000 2487+ B 6 ERR "NO INTERRUPT! O0O035EE 26044+INTR2 EQU x TL 
Sil ys HR ARK RUSE oe +55 Ka WER OER 4S RRGURA Ges ths oe os oe eee een eee Oop En TES 2605+4+* CPcL R5 CURRENT LEVEL COPIED BY DCP IL 
2490+* O0OO035EE 3521 2606+ SLL 4 ,R5 POSITION INTR LEVEL AND PUT TL 
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LOCTR .OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0035F0 0501 2607+ ABI 1,R5 * IN "I! BIT IL 2724 
0035F2 CD24 2608+ CW SENTL,RS IS THIS THE CORRECT INTR LEVEL IL 2135+ RETURN CONTROL 
EEE: eee Atte TBs THER SEP TATE LEVEL ERROR CONTROL BIT IL 543 9e% B TURTN* RETURN TO MDI 
+ 
OO3RFA 4c6) Zo? TBTS RG, ER SET ERROR ON I/O COMMAND CNTL BIT IL 313004 OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
003° FE 1504 ees te con aaeee aes ERE? OFF PETS TNTR LEVEL rt DT 3 OA BRR HH HK HH HR HK HH He RR RE a a He a I eH OC Ce He ee i he ie lee eR oe aa a he i i i a ak ok 
003600 4C60 2614+ TBTS (R4,MTI) * NO, SET MYSTERY INTR CONTROL BIT IL 003688 4020 1818 8000 27314+SERR$ HVWI X'8000' ,TUSTATUS SET ON 'NO GOOD! STATUS BIT 
003602 F304 2615+ CBI u,R3 ATTENTION INTERRUPT? IL 00368E 4724 37F2 2732+ HVA HEBLK,R7 GET ADRS OF CONTROL BLOCK 
003604 1001 2616+ JE INTRX YES IL 003692 601A 2733+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
003606 4cé6C 2617+ TBTS (R4,NG) ERROR UNEXPECTED INTERRUPT TY 003694 0D03 27344+$PRNT MVET ri 
003608 6006 2618+INTRX SVC XIT fHIS LEVEL VIA SUPVR TO PGM TL 003696 4324 181A 2735+ MVA r WORK SET UP BUFFER STORAGE 
AD ESE DEP EE eee ere Pere Perr ree Cre Ler ir tier ie Dee he hee tL amen OO369A 6BOD 37EA 2736+ AVW Bur eT 
26214* 00369E 4124 371A 2737+ MYA | ORTNES 
2622+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 0036A2 OFOY 2738+ MVBI 4, RT 
2623+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 0036A4 OEFOS 2739+ MVBI 8 2k 
2624+% RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 003686 2824 2740+MVBUF MVFN f 3), (R1) 
2625+%* 0036A8 OFOY 2741+ MVBI 5B 
2626+* OO36AA OA4O 2742+ MVBI x 40" R2 
00360A 4CA4 2627+XIOCK TBTR (R4,XE) WAS AN ERROR EXPECTED 0036AC C258 2743+ MVB Bik 
00360C 6AaACO 2628+ BN R6,2 * YES, EXIT THIS ROUTINE OO36AE BEFB 2744+ JICcT avs 
003610 4CA8 2629+ TBTR R4U,CS) was Abro CS IN PROGRESS 0036B0 OEFO8 27454 MVBI BAR 
003612 1006 2630+ JOFF xXIOCV * NO, CONTINUE CHECKING 0036B2 7921 002C 2746+ AWI 4 art 
003614 4cC2A 2631+ TBT cE CE) Is c§ IN AN ERR CONDITION 0036B6 BDF7 2747+ JCT MVBUF 
003616 1002 2632+ JOFF xtoco * NO, BCH 0036B8 4020 1802 F1FO 2748+ MVWI BT DESEO PID+2 
em B83usxroco fans {Eu ¢ Sinn ow B33ecr 4920 igen 37 3th; «AYA eSerusbeybpa. 
c 4c +XIOCO TBTS RY,CSA TURN ON CS STATS AVAIL FLAG , 
00361E 5601 2635+ BXS R6,2 GO TO USER 0036CA 402c 19C4 0080 27514 owt BITOO 60 SUPSTAT 
003620 4¢21 2636+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 0036D0 4324 324A 2752+ MVA  $TUID,R3 SET UP BUFFER STORAGE 
003622 1008 2937+ JOFF TOCX * NO, EXIT THIS ROUTINE 0036D4 6F13 18BA 2793+ BAL TURSG ATR, R7 GO TO MESSAGE WRITER 
+ 
003624 C520 324D 2639+ MVB SIOIN+1,8£5 GET LAST INTR CC CODE 0036D8 2755+$CONX EQU * 
003628 F502 2640+ CBI 2,R5 IS THIS CC=2 0036D8 C720 19D0 2756+ HYB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
00362A 68D1 0000 2641+ BNE (Re) * * NO, BCH TO ERROR HANDLER 0036DC 6013 2757+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
posca5 ean Seae pena sore ays ote eee get fast 1SB DATE BYTE AMD IF cs OO0O36DE 6812 3282 ae B TURTN* RETURN TO MDI SUPERVISOR 
+ ocs- L O G T 
003636 68D2 0000 2644+ B (R6) * ERROR ; 0036E2 0007 2760+BEGIN DC Boe a NUMBER OF LINES TO PRINT 
bosese Seat 2" genes TOCe BYE! hear Senin i OSes Cdr Suet G33e66 2e82eocicanenons 3488s Be N88 Sone ea neae 
6+ 
2647+ os ee : geen we O036EE 0028 2763+ DC A (0040) LINE LENGTH = 40 CHAR 
26484+* T/O PARAMETER LIST OO36FO0 E3ZE4COCHHOCODECID 2764+ DC C'TUID IOIN ISB INST DEV1 DEV2 DEV3 DEV4 ! 
sesott C037 TA 2 404040404040K04 a reetLINEt De aaa shea dein aiid 
003640 19D0 2650+IOBLK DC A(DEVADD ADRS OF DEVICE ADRS A + 
003642 35A8 2651+ DC A XIOER). ERROR ROUTINE ADRS 003742 0028 2767+ DC A (0040) LINE LENGTH = 40 CHAR 
003644 0000 2652+IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 003744 C3D5E3D340C4C3C2F 2768+ DC C'CNTL DCB2 DCB3 DCB4 DCBS CHAD BYCT ADRS ! 
003646 0000 2653+IOMOD DC A (=x MODIFIER 00376c 0028 2769+ DC A (0040) LINE LENGTH = 40 CHAR 
003648 0000 26544 DC A (*-* ADRS OF LAST SVC CALL 00376E 4O4OKO4OKOKO4O4O4 27704+LINE2 DC Cc! ' 
00364A 0000 2655+IORSP DC A (*-* SECOND WORD OF LAST IDCB 003796 0028 2771+ DC A (0040) LINE LENGTH = 40 CHAR 
2656+% 003798 DIEZCICYHOC3E260F 2772+ DC C'RSTID CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 CS-8 ! 
2657+* INTERRUPT CONTROL BLOCK FOR I/0 COMMANDS 0037C0 0028 2773+ DC A (0040) LINE LENGTH = 40 CHAR 
2658+* 0037C2 4O4O4O4OKOKOLO4O4 27744+LINES DC on. ' 
00364cC 19D0 2659+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 2775 +4+% 
00364E 35D8 2660+ DC A (INTOK INTERRUPT OK RETURN ADRS OO37EA 0000 2776+BUFPT DC a ieecs 
003650 35B4 2661+ DC A (INTER INTERRUPT ERROR ADRS | OO037EC 36E2 2777+DC2PT DC A (BEGIN) 
003652 0003 2662+INTCC DC X'0003' INTERPUPT CODE EXPECTED 0037"E 0101 27784+FIXTU DC X¥*0101' 
26 Gh Fe OO a ai toi ia ack ok galokck i koko kk tok tok ke tok 2k 1 TAY 76 ** 0037FO 0101 2779+FAKETO DC xX'0101! 
2665+* OOF1FO 2780+PIDMSG10 EQU X'FFO! 
2666+% SUBROUTINE 000080 Z781+BITOORO EOU X'0080! 
+ 
2668+% CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 2783+% DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
+ 
2670+* PURPOSE 0037F2 0030 2785+HEBLK DC 48) NUMBER OF BYTES TO CONVERT 
2671+* OO37F4 324A 2786+ DC TD) FROM ADRS 
2b72+% TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 0037F6 181A 2787+ DC TUWOR ) AND THE TO ADRS 
2673+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000000 2788 END 
26744+% TO INTERRUPT. 
2675+* 
2676+* CALLING SEQUENCE 
26774* 
ores THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
+ 
2680+* --—> BAL SCONC,R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK 
2681+% --> BAL SCONP,RO PREPARE DEVICE ONLY, ALREADY CONNECT 
+ 
2683+* RETURN CONTROL 
2684+* 
2685+* BXS R6,2) RETURN TO USER VIA REG 6 IF OKAY 
2686+% OR B R64 * IF THE DEVICE COULD NOT BE CONNECTED 
26 BB HRM MAHA He Me He He HM He He He He HK He He Mee Me He ee ee eo 3K D4 He He He He eee A I ac a a ae ic he ac ac ac 3c a 2c ec oe hc he 3c cc cafe ae 2h ale ec ke che fe 
003654 OF06 2689+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
003656 O0BOO0 2690+ MVBI 0O,R3 * AND THE DATA TO USE 
003658 4524 3252 2691+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 
00365C 2BAC 2692+ FFN R3 §85) x 
00365E CB25 3248 2693+ MVWZ OPTN3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 
003662 4724 364c 2694+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
003666 6014 2695+ SVC CICB * CONNECT IT TO THIS DEVICE 
003668 6AD0 0000 2096s BN (R6) * ERROR RETURN TO USER 
+ 
00366C 8828 3280 3644 2698+$CONP MVW SINTL,IODCB PUT IN LEVEL & INTR PARAMETER 
003672 4724 3640 26994. MVA IOBLK,&7 SET R7 TO CONTROL BLOCK TO PREPARE 
003676 4020 324c 0708 2700+ MVWI X'0706',$IOIN INITIALIZE CONDITION CODE STORAGE 
00367C CB25 324F 2701+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 
003680 6E£0D 3250 2702+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 
003684 600C 2703+ Svc PREP * AND CALL ON SUPVR 
003686 5601 2704+ BXS Re 2) RETURN TO USER 
Sata es i KH MEME MME HH Re Me He He He Re AC He He ee ee he ic ae ic he ok he oh ake he ok ik ok kk KK OG APR 76 ** 
2707+* 
2708+* SUBROUTINE 
2709+* 
Saige DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
Z4igee PURPOSE 
27144 DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
2715+*% SET THE 'NO GOOD' CONTROL BIT, THEN LOG THE DATA THAT HAS 
g316+% BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
g118¢ CALLING SEQUENCE 
pe as THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
2722+* --> B SERR$ SET 'NG* BIT AND CONVERT DATA TO LOG ; 
2723+* --> B SCONX RETURN TO MDI SUPERVISOR TO TEST STS 
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1635431 


CROSS-REFERENCE LISTING 


REFERENCES 


LOCATION (00002950) 
LOCATION (00002954) 
LOCATION (00002968) 
LOCATION (0000296C) 
LOCATION (00002970) 
LOCATION (00002974) 
LOCATION (00002978) 
LOCATION (0000298C) 
LOCATION (00002998) 
LOCATION (000029AE) 
LOCATION (000029C2) 
LOCATION (000029D6) 
LOCATION (000029DA) 
LOCATION (000029DF) 
LOCATION (000029E2) 
LOCATION (00002956) 
LOC ATION (000029EA) 
LOCATION (000029 FE) 
LOCATION (0000202) 
LOCATION (00002406) 
LOCATION (00002A1A) 
LOCATION (00002A2E) 
LOCATION (00002432) 
LOCATION (00002436) 
LOCATION (00002438) 
LOCATION (00002A4£) 
LOCATION (00002262) 
LOC ATION (00002476) 
LOCATION (00002A7A) 
LOCATION (00002A7E} 
LOCATION (00002482) 
LOCATION (00002486) 
LOCATION (00002A8A) 
LOCATION (00002A8E) 
LOCATION (00002492) 
LOCATION (000022896) 
LOCATION (00002A9A) 
LOCATION (00002A9E) 
LOCATION (00002AA2) 
LOCATION (00002AB6) 
LOCATION (00002ACA) 
LOCATION (00002ACE) 
LOCATION (00002AD2) 
LOCATION (00002A06) 
LOCATION (00002ADA) 
LOCATION (00002ADE) 
LOCATION (00002AE2) 
LOCATION (00002AF6) 
LOCATION (00002B0A) 
LOCATION (00002BOE) 
LOCATION (00002822) 
LOCATION (00002836) 
LOCATION (00002B4A) 
LOCATION (00002B5E) 
LOCATION (00002862) 
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17833 --- NOT READY SENSE P/N= 1635431 EC=755285 PAGE 15 17833 --- NOT READY SENSE P/N= 1635431 EC=755285 PAGE 15A 
CROSS-REFERENCE LISTING COPYRIGIT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
14 31 N00110 ADDRESS. HEX LOCATION(OO002B6E) IN CSECT (17833 ) LENGTH (2) 2731 
645 1423 78 TUWORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7833 ) LENGTH (1) 
1434 nNo00111 ADDRESS. HEX LOCATION (00002872) IN CSECT (17833 ) LENGTH (2) 2735 2787 
648 1411 1840 T3C02 ADDRESS. HEX LOCATION (00003282 IN CSECT (17833 L LENGTH (6) 
1437 N00112 ADDRESS. HEX LOCATION(00002B76) IN CSECT(I7833 ) LENGTH(2) 734 746 758 770 #4782 94 821 845 857 
651 1399 869 896 914 926 938 953 977 989 1016 
1440 N00113 ADDRESS. HEX LOCATION(00002B7A) IN CSECT(I7833  ) LENGTH (2) 1040 1052 1067 1091 1115 1136 1148 1160 1187 
654 1205 1217 1238 1250 1262 1307 1319 1349 1361 
1443 N00114 ADDRESS. HEX LOCATION(00002B7E) IN CSECT (17833 ) LENGTH (2) 1376 1388 1400 1412 1457 #1487 #1502 1514 
657 1438 2165 T72A ADDRESS. HEX LOCATION(000033F4) IN CSECT (17833 ) LENGTH (4) 
1446 NOO11T5 ADDRESS. HEX LOCATION (00002B82) IN CSECT(I7833 ) LENGTH (2) 1128 
660 1387 2166 T72B ADDRESS. HEX LOCATION(000033F8) IN CSECT(I7833 ) LENGTH (4) 
1449 N00116 ADDRESS. HEX LOCATION (00002886) IN CSECT(I7833 ) LENGTH (2) 2164 
663 2160 T7872 ADDRESS. HEX LOCATION(000033E2) IN CSECT(1I7833 ) LENGTH (4) 
1452 NO0117 ADDRESS. HEX LOCATION(00002B8A) IN CSECT(I7833 ) LENGTH (2) 1127 
666 1447 2038 VRDCB ADDRESS. HEX LOCATION (00003312) IN CSECT(I7833 ) LENGTH (2) 
1455 N00118 ADDRESS. HEX LOCATION (0O0002B8E) IN CSECT (17833 ) LENGTH (2) 2350 
669 1375 2060 WKDCB ADDRESS. HEX LOCATION (00003332) IN CSECT(I7833 ) LENGTH(2) 
1467 N00119 ADDRESS. HEX LOCATION(00002BA2) IN CSECT(I7833 ) LENGTH (2) 2364 236 2380 8 
672 2027 WRDCB ADDRESS. HEX LOCATION(00003302) IN CSECT (17833 ) LENGTH (2) 
1470 N00120 ADDRESS. HEX LOCATION(00002BA6) IN CSECT (17833 ) LENGTH (2) 2353 
675 2099 WRSID ADDRESS. HEX LOCATION (00003378) | IN CSECT(I7833 ) LENGTH(2) 
1473 NO0121 ADDRESS. HEX LOCATION(00002BAA) IN CSECT (17833 ) LENGTH (2) 1978 2067 2198 2279 23 85 
678 1468 1971 WSDCB ADDRESS. HEX LOCATION(000032B2) IN CSECT (17833 ) LENGTH (2) 
1476 N00122 ADDRESS. HEX LOCATION(OOO00O2BAE) IN CSECT(1I7833 ) LENGTH (2) 2384 238 2387 238 
681 1456 2103 WSIDT ADDRESS. HEX LOCATION (00003380) IN CSECT (17833 ) LENGTH (2) 
1479 n00123 ADDRESS. HEX LOCATION (00002BB2) IN CSECT (17833 ) LENGTH (2) 2194 2365 23 
684 1783 XE ABSOLUTE. HEX VALUE (000000284) 
1482 N00124 ADDRESS. HEX LOCATION(00002BB6) IN CSECT(I7833 ) LENGTH (2) 2565 262 
687 1477 1781 XI ABSOLUTE. HEX VALTE(00000022) 
1485 N00125 ADDRESS. HEX LOCATION(O0002BBA) IN CSECT (17833 ) LENGTH (2) 2471 261 
690 1348 24.46 XIO ADDRESS. HEX FOCATT ON (00903562) - IN CSECT (17833 Sah LENGTH (4) 
1497 N00126 BODRE SA: HEX LOCATION(OOOO2BCE) IN CSECT (17833 ) LENGTH (2) 2320 233 2366 oaa6 2333 54° 2362 2366 2370 
1500 N00127 ADDRESS. HEX LOCATION (00002BD2) IN CSECT (17833 ) LENGTH (2) 26 27 XIOCK sARORESS- HE X LOCATION (00003608) IN CSECT (17833 ) LENGTH (2) 
1512 N00128 ADDRESS. HEX LOCATION(O0O002BE6) IN CSECT(I7833 ) LENGTH(2) 2634 XIOCO aa QRRESS- HEX LOCATION(0000361C) IN CSECT (17833 ) LENGTH (2) 
1524 N00129 ADDRESS. HEX LOCATION(OOOO2BFA) IN CSECT(1I7833 ) LENGTH (2) 2451 XIOCS aR DURESS: HEX LOCATION (0000354C) IN CSECT(I7833 ) LENGTH (6) 
1527 N00130 ADDRESS. HEX LOCATION(OQOOO2BFE) IN CSECT(I7833 ) LENGTH(2) 26 36 XIOCV >RRDRESS. HEX LOCATION (00003620) IN CSECT(I7833 ) LENGTH (2) 
1530 N00131 ADDRESS, HEX LOCATION (00002C02) IN CSECT (17833 ) LENGTH (2) 2645 XTOCX ADDRESS. HEX LOCATION(0000363A) IN CSECT(I7833 ) LENGTH(4) 
1533 N00132 ADDRESS. HEX LOCATION (00002C06) IN CSECT(I7833 ) LENGTH (2) 2520 XIOER ADDRESS. HEX LOCATION (000035A8) IN CSECT (17833 ) LENGTH (2) 
15 36 N00133 ADDRESS, HEX LOCATION (00002C0A) IN CSECT (17833 ) LENGTH(2) 2455 XIo1 ADDRESS. HEX LOCATION (0000355C) IN CSECT(I7833 ) LENGTH (4) 
1539 N00134 ADDRESS. HEX LOCATION(00002COE) IN CSECT(I7833 ) LENGTH (2) 2468 XIO2 ADDRESS- HEX LOCATION (00003582) IN CSECT(I7833 ) LENGTH (2) 
1545 n00135 ADDRESS. jHEX LOCATION (00002C1A) IN CSECT(I7833 ) LENGTH(2) 2480 XIO8 oRBBRESS. HEX LOCATION (00003596) IN CSECT (17833 ) LENGTH (2) 
60 ON ABSOLUTE. HEX YALTE (00000200) l 2081 ZEROO ADDRESS. HEX LOCATION (00003352) IN CSECT(17833 ) LENGTH (2) 
735 747 759 #771 783° «4795 822 846 858 2241 
870 897 915 927 939 954 978 990 1017 
1041 1053 1068 1092 1116 1137 1149 1161 1188 
1206 1218 1239 1251 1263 4308 1320 1350 1362 ae ae he oe He fe ee ae ee oe He ae We ae ee He He IK He eK EK KKK KK KKK KEK PAST PA GR KRM KK Me eK KK He He ee ee ek eC eK tek KK KK OK Ke 
1377 1389 1401 1413 1458 1488 1503 1515 
1744 OPTN1 BRRESS, HEX LOCATION (00003244) IN CSECT(I7833 ) LENGTH (2) 
1767 OPTN3 oARRRESS. HEX LOCATION (00003248) IN CSECT(I7833  ) LENGTH (2) 
104 PARMARA ADDRESS. HEX LOCATION (0000 196E IN CSECT(I7833 _) LENGTH(1) 
742 754 766 77 790 02 829 853 865 
877 904 922 335 946 961 985 997 1024 
1048 1060 1075 1099 1123 1132 1144 1156 1168 
1195 1213 1225 1246 1258 1270 1315 1327 1357 
1369 1384 1396 1408 1420 1465 1495 1510 1522 
2096 PHYSC ADDRESS, HEX, LOCATION (00003372) IN CSECT (17833 ) LENGTH (2) 
72 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(I7833 ) LENGTH(1) 
74 75 76 77 78 79 80 81 82 
83 84 85 86 87 88 89 90 91 
92 93 94 95 96 97 98 99 100 
101 102 103 104 105 106 107 108 109 
110 111 112 113 114 115 2748 
2780 PIDMSG10 > ABSOLureE. HEX VALUE (O000F1F0) 
1861 PREP >iBSoLgrz. HEX VALUE (0000000C) 
2049 RDDCB oADPRESS, HEX LOCATION (00003322) IN CSECT(I7833 ) LENGTH (2) 
1868 RICB ABSOLUTE. HEX VALUE (00000013) 
2071 RKDCB ADDRESS. HEX LOCATION (00003342) IN CSECT(I7833 ) LENGTH(2) 
2356 2361 2368 2369 
1981 RSDCB ADDRESS. HEX LOCATION(000032C2) IN CSECT(I7833 ) LENGTH (2) 
2335 2340 2372 2377 
2252 RTT01 APPRESS. HEX LOCATION(O000344E) IN CSECT(I7833 ) LENGTH(4) 
1807 SCTID ADDRESS. HEX LOCATIO W (00903252) , IN CSECT(I7833 _) LENGTH(2) 
1988 2000 2078 2197 227 37 2340 2358 2361 
2106 SCTST oABDRESS HE LOCATION (00003386) IN CSECT (I7833 ) LENGTH (2) 
2005 SKDCB SED DRESS: HEX LOCATION (000032E2) IN CSECT(1I7833 ) LENGTH (2) 
1859 START ABSOLUTE. HEX VALUE (00000008) 
107 SUPSTAT of BDRESS. HEX LOCATION(000019C4) IN CSECT (17833 ) LENGTH (1) 
2250 TT 303 hPBRESS- HEX LOCATION (00003446) IN CSECT (17833 ) LENGTH (6) 
2256 TT304 Bae or eitaae LOCATION (0000345EF) IN CSECT(1I7833 ) LENGTH (4) 
2199 TT4Y Sh BRRESS: HEX LOCATION (00003416) IN CSECT(1I7833 ) LENGTH (2) 
95 TUMSGWTR 2 ARRRESS. HEX LOCATION(000018BA) IN CSECT(I7833 ) LENGTH(1) 
1831 TURTN o ADDRESS. HEX LOCATION (00003282) IN CSECT (17833 ) LENGTH (2) 
717 TUSTATUS ADD HEX LOCATION (00001818) IN CSECT(I7833 ) LENGTH(1) 


RESS. 


